From: Jim Blandy <jimb@redhat.com>
Date: Thu, 11 Mar 1993 07:17:54 +0000 (+0000)
Subject: * textprop.c (Fadd_text_properties): Initialize the modified flag.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96936
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=caa3156810b77c70a4d226567a191b30cf398f4d;p=emacs.git

* textprop.c (Fadd_text_properties): Initialize the modified flag.
	Use a "for (;;)" loop at the end of the function, to indicate that
	all exiting is taken care of inside the loop.
	(Fremove_text_properties): Same.
---

diff --git a/src/textprop.c b/src/textprop.c
index 871bd8875a7..06ae670c47f 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -610,7 +610,7 @@ Return t if any property value actually changed, nil otherwise.")
      Lisp_Object start, end, properties, object;
 {
   register INTERVAL i, unchanged;
-  register int s, len, modified;
+  register int s, len, modified = 0;
 
   properties = validate_plist (properties);
   if (NILP (properties))
@@ -660,7 +660,7 @@ Return t if any property value actually changed, nil otherwise.")
     }
 
   /* We are at the beginning of an interval, with len to scan */
-  while (len > 0)
+  for (;;)
     {
       if (i == 0)
 	abort ();
@@ -800,7 +800,7 @@ Return t if any property was actually removed, nil otherwise.")
      Lisp_Object start, end, props, object;
 {
   register INTERVAL i, unchanged;
-  register int s, len, modified;
+  register int s, len, modified = 0;
 
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
@@ -846,7 +846,7 @@ Return t if any property was actually removed, nil otherwise.")
     }
 
   /* We are at the beginning of an interval, with len to scan */
-  while (len > 0)
+  for (;;)
     {
       if (i == 0)
 	abort ();